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Abstract: 


I 

I 

The  development  of  additional  hardware  and  software  for  the  compositional 
analysis  of  gas  mixtures  using  a gas  chromatography  - mass  spectrometric 
technique  has  progressed  to  faster  sampling  rates  and  to  a larger  degree 
of  automation.  Hard  copy  in  real  time  is  also  available  now. 
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INTRODUCTION 

The  work  performed  under  this  contract  has  been  primarily  on 
extension  of  the  previous  work  performed  in  the  construction  of  a gas 
chromatograph  - mass  spectrometer  system  for  use  as  a "Real  Time  Field 
Contamination  Monitor."  As  the  data  acquisition  system  became  more 
sophisticated,  the  mobility  of  the  system  began  to  decrease.  In  our 
earlier  work  on  Contract  DAAH01-75-C-0939,  the  contamination  monitor 
incorporated  a state-of-the-art  prograrrmable  calculator,  the  Wang  WCS-20 
system,  for  the  data  acquisition  and  control  functions.  Described  in 
this  report  is  the  further  development  of  both  hardware  and  software 
which  implement  these  functions.  Most  of  the  design  philosophy  con- 
tained here  has  also  been  presented  at  a technical  meeting  last  year. 
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Hardware  Development 

The  use  of  the  Wang  system  to  control  such  things  as  sensitivity, 
start  of  scan,  and  duration  of  scan  ideally  can  represent  a true  automation 
of  the  analysis.  With  the  mass  spectrometer  setting  at  10"11  amps  a series 
of  relays  inside  the  UTI  100C  became  available  for  computer  control  of 
the  range  settings.  Our  circuitry  to  implement  this  control  is  given  in 
Figure  1.  A board  layout  of  the  Relay/Decoder  Board  is  given  in  Figure  2. 
The  decoder  chosen  to  convert  the  Wang  COB1  - 4 binary  signals  to  16 
control  lines  is  the  TTL  logic  74154  decoder.  As  seen  in  Figure  1,  all 
8-bit  data  words  from  the  Wang  are  now  controlled  by  one  of  the  16  control 
lines  through  a 8212  buffered  latch.  The  74121  monostable  vibrators  cure 
used  to  control  pulse  width  for  enabling  the  8212 's. 

The  arrangement  as  shown  allows  the  user  at  least  128  lines  which 
can  operate  as  control  functions.  This  includes  all  four  COBl  - 4 lines 
and  all  8 data  lines.  It  is  easily  seen  that  by  expanding  the  8 data  lines 
through  more  4 - to  - 16  decoders,  many  more  control  functions  would  be 
accessible.  We  did  not  require  this  feature  for  our  interfacing  in  this 
project. 

The  analog-  to-digi tal  convertor  uses  a Da tel  DAS-16  which  takes 
approximately  25  microseconds  to  convert  8 bits.  With  the  input  scanner, 
up  to  16  lines  can  be  digitized,  however,  we  did  not  require  all  those 
lines  for  this  work.  We  did  have  seme  problems  with  the  sequencer/control 
function  of  the  DAS-16  which  resulted  in  seme  down-times  at  inappropriate 
times.  However,  usually  the  A/D  system  operated  very  well. 


proved  to  be  unreliable  for  mass  calibration.  For  example,  when  talcing  an 
0-100  amu  scan  in  4000  data  points,  the  peak  of  a significant  mass  might 
differ  by  10-15  points  on  the  amu  scale.  This  uncertainty  in  data  points 
represented  an  uncertainty  in  mass  value  and  since  our  mass  values  were 
calnila-t-pd  frcm  the  peak  at  the  amu  position,  we  never  got  the  same  answer 
on  two  different  runs.  This  problem  was  alleviated  by  incorporating  a digital 
ramp  (or  210  counter)  as  shown  in  Figure  3.  The  software  increments  the 
mass  scale  by  one  and  this  new  count  frcm  the  Wang  data-out  bus  is  latched 
out  through  the  8212 's  and  counted  by  three  74193  up/down  binary  counters. 

The  binary  count  is  then  converted  by  a 12  bit  D/A  DAC  85  (Burr  - Brown) 
to  provide  the  appropriate  analog  ramp.  Using  this  technique,  the  mass 
calibration  became  more  reliable.  A board  layout  of  the  ramp  driver  board 
is  given  in  Figure  4. 

Also  attempted  during  this  work  effort  was  the  ability  to  record  a 
real  time  with  the  particular  spectrum  being  run.  A real  time  clock  with 
BCD  outputs  in  months,  days,  hours,  and  minutes  was  being  incorporated  into 


the  program.  It  is  anticipated  that  this  innovation  will  be  part  of  the 
program  in  the  future. 

The  chief  drawback  to  the  system  above  is  the  use  of  a silicone  membrane 
for  the  gc-ms  interface.  We  have  experienced  numerous  problems  in  the  mem- 
branes breaking  due  to  overheating.  TWo  electron  multipliers  have  been 
ruined  in  this  type  of  accident.  Further  reconmendations  might  include  a 
faster  punping  system  with  no  carrier  gas. 
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The  software  development  has  progressed  in  two  directions  under  this 
particular  cot  tract.  First,  we  have  made  use  of  the  $GIO  contends  in 
order  to  speed  up  the  data  acquisition  process.  The  $GIO  ccmiands  operate 
much  like  machine  language  codes,  thereby  bypassing  the  Basic  interpreter 
of  the  Wang  system.  This  feature  will  be  discussed  further.  The  second 
direction  in  which  we  have  gone  in  the  software  development  is  to  real 
time  plotting  of  the  data  using  a Tektronix  4006-1  terminal  with  a hard 
copy  unit.  Enclosed  as  Figures  5,  6,  and  7 are  examples  of  this  type  of 
plot. 

$GIO  cormands  use  a device  code  and  hexadecimal  characters  to  provide 
either  input  control  or  output  control.  For  example  rather  than  losing  the 
statanents 

SELECT  INPUT  01 
KEY  IN  A$,  50,  60 

which  represents  an  input  code,  we  new  use  statements  such  as 

$GIO/01D  (411D,  Q$) 

and  since  the  BASIC  interpreter  is  not  needed  we  can  take  data  (or  output 
data)  much  faster.  For  example,  our  early  programs  would  require  7 seconds 
to  acquire  1000  data  points;  while  our  present  system  requires  2 seconds  to 
acquire  4096  data  points. 

The  $GIO  ccrmands  are  also  used  to  transfer  data  to  the  4006-1  terminal. 
We  have  increased  the  speed  for  the  plotting  of  spectra;  however,  not  to  the 
times  we  had  imagined.  The  principal  drawback  has  been  that  to  determine 
the  graphical  displacements  on  the  CRT,  division  by  32  proceed  very  slowly. 


This  technique  needs  to  improve  and  will  when  more  manpower  becomes  available. 


Presentations  and  Personnel 


The  work  presented  in  this  report  was  also  presented  to  the  28th  Annual 
Southeast  Regional  Meeting  of  the  American  Chemical  Society  in  Gatlinburg, 
Tennessee.  Terrence  Whitt  presented  the  paper  and  subsequently  received 
several  offers  for  graduate  school.  He  is  now  attending  Murray  State 
University  and  working  on  gc-ms  applications  there. 

Hie  primary  program  development  has  been  performed  by  Mike  Lenox. 

Mr.  Lenox  is  still  a student  at  Athens  State  College,  but  he  will  be 
graduating  this  year. 


DATA  ACQUISITION  PROGRAM 


10  REM  W SIMPLE  PROGRAM  FOR  TAKING  DATA  W 
20  DEFFN'15 

30  PRINT  HEX(030AOAOAOA); "SAMPLING" 

1*0  DIM  A$(64,6U)1 
50  $GI0/23B  (1+5011*500, Q$) 

60  $GIO/23A  (CA70,Q$)  A$( ) 

70  INPUT  "NAME" ,N$ 

80  DATA  SAVE  DC  OPEN  R 35, N$ 

90  DATA  SAVE  DC  A$() 

100  DATA  SAVE  DC  END 

110  PRINT  N$;"  HAS  BEEN  STORED" 

120  STOP 

130  FOR  1*1  TO  6U:  FOR  J=1  TO  61+ 

11*0  PRINT  255-VAL(A$(l,J ) ) ; 

150  NEXT  J :NEXT  I 


1*1 
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DATA  2 PROGRAM 


10DEFFN ' 12"KEY  S.F.  '15  FOR  INSTRUCTIONS" 

20  DIM  A$(61*,61*)1,R(100),P(100),Z$(100)9,B$(202,9)1 
30  DEFFN'15 
1*0  SELECT  PRINT  005 
50  PRINT  HEX(030A0A) 

60  PRINT  TAB ( 20 ) ; "DEFFN ' 0 TAKE  DATA  AND  STORE" 

TO  PRINT  TAB (20); "DEFFN '1  LIST  DATA  FILES" 

80  PRINT  TAB (20); "DEFFN' 2 PICK  PEAKS" 

90  PRINT  TAB (20 ) ; "DEFFN ' 3 LIST  DATA" 

100  PRINT  TAB ( 20 );  "DEFFN '1* LIST  PEAKS" 

110  PRINT  TAB (20); "DEFFN '5  HARD  COPY" 

120  PRINT  TAB (20 ) ; "DEFFN '6  GRAPH  PEAKS" 

125  PRINT  TAB (20); "DEFFN '7  ANALOG  GRAPH" 

130  PRINT  TAB(20); "DEFFN'15  RETURN  TO  INSTRUCTIONS" 

lUO  STOP 

lU5  DEFFN '7: LOAD  DC  F"ANALOG  3" 

150  DEFFN '0  :REM  TAKE  DATA  AND  STORE  ttttHMtUt 

155  $GI0/23B(l*50Cl*500l*lF9,Q$) 

156  $GI0/23B(l*50Bl+5004l7F,Q$) 

160  INPUT  "SCAN  LENGTH  IN  SECONDS", T 
170  T=T«U. 6248125 
180  T1=INT(T/256):T2=T-256*T1 
190  A$=HEX( 0200030020) 

200  BIN(STR(A$,2,2)  )=T1:BIN(STR(A$,1+,2))=T2 
210  $GI0/23B  ( A$ , Q$ ) 

220  $GIO/23B  (1221  CBl*0  1200, Q$)  A$(  ) 

230  INPUT  "NAME" ,N$ 

2 1*0  DATA  SAVE  DC  OPEN  R 35,N$ 

250  DATA  SAVE  DC  A$( ) 

260  DATA  SAVE  DC  END 

270  PRINT  N$;"  HAS  BEEN  STORED" 

280  STOP  "KEY  S.F.  '15  FOR  INSTRUCTIONS" 

290  DEFFN ' 1 : REM  #######  LIST  DATA  FILE  ####### 

300  PRINT  HEX (030 AO A) 

310  LIST  DC  R 

320  STOP  "KEY  S.F.  '15  FOR  INSTRUCTIONS" 

330  DEFFN ' 2 : REM  PICK  PEAKS  tHtttM## 

31*0  P,T=0 

350  INPUT  "WHICH  DATA  FILE",D$ 

360  INPUT  "HOW  MANY  AMU  (0-?)",Al 
370  A1=INT(A1*61*/1*00) 

380  INPUT  "CUTOFF  POINT  (0-255 )",W 

390  S=1  :REM  SCALE  CHOICE  DELETED 

1*00  PRINT  HEX(03) 

1*10  ON  S GOTO  1*20,1*30,1*1*0 
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DATA  2 PROGRAM  ( cont . ) 

U20  C$="S  200" : GOTO  1*50 
1*30  C$="S  100" : GOTO  1+50 
1+1*0  C$="S  200" 

1*50  DATA  LOAD  DC  OPEN  R D$ 

1+60  DATA  LOAD  DC  A$(  ) 

1+70  DATA  LOAD  DC  OPEN  F C$ 

1*30  DATA  LOAD  DC  B$( ) 

1*90  FOR  1=1  TO  A1:F0R  J=1  TO  61* 

500  PRINT  HEX(01);INT(  C61+*I+J)/I0.2l*)-6,P 
510  T=T+1 

520  A=B:B=C:C=255-VAL(A$(I,J)) 

530  IF  B[A  THEN  590 

5l*0  IF  B[C  THEN  590 

550  IF  B=C  THEN  590 

560  IF  B[W  THEN  590 

570  P=P+1 : IF  PjlOO  THEN  950 

580  R(P)=B:P(P)=T 

590  NEXT  J:NEXT  I 

600  STOP  "KEY  S.F.  '15  FOR  INSTRUCTIONS" 

610  DEFFN’6:REM  tilt#  ti#  It  It  TEKTRONIX  SUB-ROUTINE  tittttttttttti 

620  RESTORE 

630  INPUT  "DELTA  X (+  OR  -)",D 
61*0  INPUT  "MULTIPLIER  RANGE", M$ 

650  INPUT  "PRESSURE" ,P$ 

660  FOR  1=1  TO  P 

670  X=P(  I ) *l800/l+096+120+D 

680  M=M+1 

690  FOR  K=1  TO  2 

700  IF  K=1  THEN  710:Y=R(I)*2.55+115:GOTO  720 
710  Y=115 

720  Xl=INT(X/32)+32:X2=((X/32)-INT(X/32)  )#32+61* 

730  Y1=INT( Y/32 )+32: Y2=( (Y/32 )-INT(Y/32) )*32+96 
7U0  BIN(STR(Z$(M) ,K*U-3,1))=Y1:BIN(STR(ZS{M) ,K*l+-2,l)  )=Y2:BIN(ST 
R(Z$(M),K*1+-1,1)  )=X1:BIN(STR(Z$(M),K*1*,1)  )=X2 
750  NEXT  K 

760  BIN(STR(Z$(M),9,1))=29 
770  NEXT  I 

780  SELECT  PRINT  01D 

790  $GI0/01D  (l*llBl*10C,Q$):$GI0/01D  (1*11D,Q$) 

800  FOR  1=1  TO  100 -.NEXT  I 
810  DATA  SAVE  BT/1*1D,Z$(  ) 


DATA  2 PROGRAM  (cont.  ) 
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820  DATA  SAVE  BT/1+1D,B$() 

830  M=0 

8U0  $GIO/01D(1*11F410D,Q$) 

850  FOR  1=1  TO  13: READ  W$: PRINT  W$:NEXT  I 
860  FOR  1=1  TO  5:$GI0/01D(Ul0D,Q$):NEXT  I 

870  PRINT  TAB(8);"0";TAB(2lO;"50";TA£(39h"l00";TAB(5M;"l50" 

880  PRINT  TAB (39); "M/E" 

890  PRINT  TAB (13); "FILE  NAME ";D$ 

900  PRINT  TAB ( 13 );P; "PEAKS" 

910  PRINT  TAB(13); "CUTOFF  POINT ";W 

920  PRINT  TAB(13);"MULTIPLIER  RANGE ";M$ 

930  PRINT  TAB(13); "PRESSURE ";P$ 

9hO  STOP  "KEY  S.F.  *15  FOR  INSTRUCTIONS" 

950  W=W+10:P,T=0: PRINT  W:GOTO  1*90 

960  DEFFN ' 3 : REM  #######  LIST  DATA  MPMM 

970  FOR  1=1  TO  6U:F0R  J=1  TO  61* 

980  PRINT  255-VAL(A$(I,J)); 

990  NEXT  J :NEXT  I 

1000  STOP  "KEY  S.F.  '15  FOR  INSTRUCTIONS" 

1010  DEFFN' 1*: REM  #######  PRINT  PEAKS  MM#* 

1015  SELECT  PRINT  005 

1020  INPUT  "ON  TYPEWRITER", L$ 

1030  SELECT  P3 

101*0  IF  STR(L$,1,1)[]"Y"  THEN  1070 

1050  SELECT  PO 

1060  SELECT  PRINT  211 

1070  PRINT  " AMU  RELATIVE  INTENSITY" 

1080  FOR  1=1  TO  P: PRINTUSING  1110, INT( (P(I)/l0.0l*  )+.5 ) ,R(I):NEX 
T I 

1090  SELECT  PO 

1100  STOP  "KEY  S.F.  '15  FOR  INSTRUCTIONS" 

1110*  ###  W 

1120  DATA  "R","E","L","  ","l","N","T","E","N","S","I","T","Y" 
1130  DEFFN ' 5 : REM  #######  HARD  COPY 

11 1*0  $GI0/01D  (1*11B1*117,Q$) 

1150  STOP  "KEY  S.F.  '15  FOR  INSTRUCTIONS" 


ANALOG  2 PROGRAM 


10  SELECT  PRINT  005 
20  PRINT  HEX(030A0A) 

30  $GIO/01D(4llB4l0C,Q$) 

40  SELECT  PRINT  01D 
50  DIM  A$(64,64)1,Z$5 
60  INPUT  "WHICH  DATA  FILE'\F$ 

70  INPUT  "AMU  RANGE BEGIN” ,A1 : INPUT  ” END" ,A2 

80  $GIO/01D(4llD,Q$):X=700:Y=30:G0SUB  '50:$GI0/01D(4llF,Q$) 

90  PRINT  "FILE  NAME  IS  ";F$ 

100  DATA  LOAD  DC  OPEN  R F$ 

110  DATA  LOAD  DC  A$() 

120  $GI0/01D(4llD,Q$) 

130  X*99 : Y=ll4 : GOSUB  ' 50 :X=1000:Y=ll4: GOSUB  '50 
l4o  X=1000:Y=775: GOSUB  '50:X=99:Y=775 : GOSUB  '50 
150  X=99:Y=114: GOSUB  '50:$GI0/01D(4llD,Q$) 

160  X=96:Y=111: GOSUB  ' 50 :X=1003:Y=111: GOSUB  '50 
170  X=1003:Y=778:GOSUB  ' 50: X=96:Y=778: GOSUB  '50 
180  X=96:Y=111: GOSUB  ’50:$GI0/01D(4llD,Q$) 

190  $GI0/01D(4llD,Q$) 

200  I=INT(A1*10. 24/64 )+l:J=INT((Al *10. 24)-(64*IHT(Al *10. 24/64))) 
220  X=100 

230  Q»900/(10.24*(A2-A1)) 

240  J=J+1:IF  J[65  THEN  250:J=1:  1=1+1 
250  X-X+Q 

260  IF  XjlOOO  THEN  310 

270  SELECT  PRINT  01D 

280  Y»2.55*(255-VAL(A$(I,J)))+115 

290  GOSUB  '50 

300  GOTO  240 

310  $GI0/01D(4llD,Q$) 

320  X*75:Y*65: GOSUB  ’ 50 :$GIO/01D(4llF,Q$): PRINT  Al:$GI0/01D(4llD 

,Q$) 

330  $GI0/01D(4llD,Q$) 

340  IF  A2-A1 jlOO  THEN  350 :S=1: GOTO  380 
350  IF  A2-A1 ]200  THEN  360:S=2:GOTO  380 
360  IF  A2-A1]300  THEN  370 :S=3: GOTO  380 
370  S=4 

380  X=10 : Y=35 : GOSUB  ' 50:$GI0/01D(4llF,Q$ ) .-PRINT  "INCREMENT*" ;S;" 
AMU" : $GI0/01D( 4llD,Q$ ) 

390  X=100 

400  FOR  I=A1  TO  A2  STEP  S 

410  Y=110 

420  GOSUB  '50 

430  IF  Y[110  THEN  480 


ANALOG  2 PROGRAM  (cont.) 


1*1*0  0=0+1 : IF  0[ll  THEN  1*50: 0=1  :Y=85:  GOSUB  '50:GOTO  460 
1*50  Y=100 : GOSUB  '50 
1+60  $GI0/01D(ullD,Q$) 

1*70  X=X+(900/(A2-Al))*S 
1*80  NEXT  I 

1*90  X=975:Y=65: GOSUB  ' 50  :$GI0/01D(1*11F,Q$):  PRINT  A2:$GI0/01D(1*11 
D,Q$) 

500  STOP  "KEY  '15  TO  RETURN  TO  INSTRUCTIONS" 

510  DEFFN' 50 

520  Xl=INT(X/32  )+32 : X2=(  ( X/32  )-INT(X/32 ) ) *32+61* 

5 30  Y1=IIIT ( Y/  32 ) +32 : Y2=  ( ( Y/  32  )-INT  ( Y/  32 ) ) *32+96 
5l*0  BIN  ( A$  )=Y1 : BIN  ( B$  )=Y2 : BIN  ( C$  )=X1 : BIN  ( D$  )=X2 
550  SELECT  PRINT  01D 
560  PRINT  A$;B$;C$;D$; 

570  RETURN 

580  DEFFN '15: LOAD  DC  F"DATA  2" 


TIME  DECODE  PROGRAM 


10  REM  #######  TIME  DECODE  PROGRAM  ######## 

20  REM  ##  TIME  COMES  HI  IN  3 BYTES  AND  IS  CONVERTED  TO  ## 

##  MONTH, DAY, HOUR  AND  MINUTES  ## 

30  DIM  T$(3)l 

1*0  $GIO/23A  (C370,Q$)  T$ 

50  Tl$,T2$,T3$,Tl*$=T$(l):Ul$,U2$,U3$=T$(2):Vl$,V2$,V3$=T$(3) 
60  AND  (Tl$,80) :AND  (T2$,78):AND  (T3$,06):AND  (TU$,01) 

70  AND  (U1$,E0) :AND  (U2$,l8):AND  (U3$,07) 

80  AND  (Vl$,80 ) :AND  (V2$,70):AND  (V3$,0F) 

90  M=VAL(Tl$)/128*10+VAL(T2$)/8 
100  D=VAL(T3$)/2*10+8»VAL(Tl*$)+VAL(Ul$)/32 
110  H=VAL ( U2 $ ) / 8»10+VAL ( U3$ ) *2+VAL ( VI $ ) /128 
120  Ml=VAL(V2$)/l6*10+VAL(V3$) 

130  PRINTUSING  lUO,M,D,H,":",Ml 

ll*0  % THE  DATE  IS  ##/##  AND  THE  TIME  IS  ##  # ## 
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igure  1.  Relay/Decoder  Board  Schematic 


use. 
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Figure  3-  Ramp  Drive  Board  Schematic 


R1  - 5.6K_n- 

Cl  - .0022*F 

R2  - 1.8M jv 

C2,  C3,  CU  - .l^F 

R3  - 3.9M^. 

RU,  R5,  R6  - IOKjv 

PI,  P2  - 50Kyj.  Potentiometer 

Figure  4.  Ramp  Drive  Board  Layout 

i 
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FILE  NAME FREON-12 


Typical  bar  output  for  mass  spectrometer 


tf  Xl)H 


1 


DAT80U03 


M/Z 

PEAK  HEIGHT 

28.0 

10.00 

1*9.3 

10.00 

9.U 

9.1*9 

lU.O 

8.11 

26.5 

8.11 

8.U 

7.76 

13.3 

7.52 

70.7 

7.52 

7.8 

6.82 

29.7 

5.60 

i 
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Figure  7.  Example  of  peak  printout  and  display. 
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